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**F ILE**1D**EXSUBROUT 
EEEEEEEEEE Xx XX SSSSSSSS UU UU B8BBBBBBB RRRRRRRR 000000 UU UU TTTTTTTITTT 
EEEEEEEEEE Xx XX SSSSSSSS UU UU BBBBBBBB RRRRRRRR 000000 UU UU TTTTTTTTTT 
EE XX XX SS UU UU BB - BB RR RR 00 00 UU UU TT 
EE XX XX $S UU UU BB BB RR RR 00 00 UU UU TT 
EE XX = XX SS UU UU BB BB RR RR 00 00 UU UU TT 
EE XX XX SS UU UU 8B BB RR RR 00 00 UU UU TT 
EEEEEEEE XX SSSSSS UU UU B8BBBBBBB RRRRRRRR 00 00 UU UU TT 
EEEEEEEE XX SSSSSS UU UU B8BBBBBBB RRRRRRRR 00 00 UU UU TT 
EE XX = XX SS UU UU BB BB RR RR 00 00 UU UU TT 
EE XX = XX SS UU UU 8B BB RR RR 00 00 UU UU TT 
EE Xx XX SS UU UU BB BB RR RR 00 00 UU UU TT eeee 
EE XX XX SS UU UU BB BB RR RR 00 00 UU UU TT eee 
EEEEEEEEEE Xx XX SSSSSSSS UUUUUUUUUU = BBBBBBBB RR RR 000000 TT eoee 
EEEEEEEEEE Xx XX SSSSSSSS UUUUUUUUUU = BBBBBBBB RR RR 000000 UUUUUUUUUU TT cece 
LL III SSSSSSSS 
LL HII! SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] $$ 
LL I] SS 
LLELLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HII SSSSSSSS 


Page 


16-SEP-1984 00:07:56 VAX/VMS Macro v04-00 


N 10 


- EXECUTIVE SUPPORT SUBROUTINES 


Table of contents 


EXSUBROUT 


Pot 
7 
ee 
sz 
-_ 
2 
eee 
ow 
on 
+s @& 
- 30 
wiaov 
22a « 

ww & 
> Jat eu 
w Gene 
> ase 
go @es + 
w +3 
= I-02 

w 20 
—_ a ~aet 
> wrAev 
ao ter ® 
w we eer 
a = Nar 
eo vv -2D aw 
(= ” fart € 
o zen @ 
-—- Me WHO C 
om vz avon 
w Ow Z2evaa 
cwD WO weL 
co @2 aves 
eu wwe w® 
<= wa o& S35 
w mw uO @ 
cworto weéer-cvo 
OURO =z @ecaee 
— he BOS 
#’5Vaekz ar w@ 
Ow —£ <x x > 
COree ee St 
Wow ge i 


—-v0OVE2 Zuwww-- 
~ Bav var et -t- 1 -} u 
eza< MN an 
. — ans or or 
Gee Zee >aaa> 
—~ BVUU dW DHARA 
2 OWWWOM * Bw 
@ottj2 awa ua 
COY4IVV0HE Swwww 


PAO 
POPP RPO KOO KON 
NPN OPR- OD em em ee 


eee ee ee 


B 11 
EXSUBROUT - EXECUTIVE SUPPORT SUBROUTINES 16-SEP-1984 00:07: AX/VMS Macro V04-00 Page 1 
v04-000 873Eb= Sec 5 04:88 SYS.SRCJEXSUBROUT .MAR; 1 - (1) 


E EXSUBROUT - EXECUTIVE SUPPORT SUBROUTINES 
+ Wyb4=000! 


OOOCoO 
Ooo 
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—MPARARARAARARARBARAAAAALSALSASALELASALELELE LARA SERRA ESE EERE R SEER SRR EEE SLES E ESS 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND correo 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH air tt AND wre Or THE 


** o 
‘® ® 
*® ® 
** ® 
** oh 
** ® 
** a 
;* INCLUS AN —ER * 
:® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
;* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
;* TRANSFERRED. * 
** * 
;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
;* AND SHOULD NOT * 
*® ® 
*® ® 
*® *® 
** ef 
** ® 
** ® 
*® * 


BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
CORPORATION. 


DIGITAL ASSUMES NO RESPONSIB 


1BI FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH I 


LITY 
S NOT SUPPLIED BY DIGITAL. 


LARA RRARARSAASAALAAALARLAAAASEAEASE RARER EA SAR RASA SERRA RESALE RSS E RSS LACE A ES SD 


Abstract: 

EXECUTIVE SUPPORT SUBROUTINES 
Author: 

D. N. CUTLER 17-AUG-76 
MODIFIED BY: 


v03-012 TMKOO01 Todd M 11-Apr-1984 
Add the routine EXESCLEANUP. ORB. This peut tas cleans up all 
structures referenced by on n-ORB. Also, change all occurrances 
of BSBWs to EXESCHKPRO ALT in the EXESCHKXXXACCES routines to 
EXESCHKPRO, INT since LAP0221 missed a couple of them. 


v03-011 Le 221 L. Mark Pil 7-Apr-1984 11:10 
oe sirecene't att to SYSCHKPRO. MAR, also change the name 

Mts pe as it is now the real thi “ dify the 
EXE ete jantien to use the ORB from the UCB. 


V03-010 LMPO0214 Mark Pilan 24-Mar-1984 10:54 
Add support for the new EXESCHKPRO INT interface. This 
includes adding the yoqnerory routine EXESCHKPRO_ALT so 
as not to totally eliminate the old interface. 


v03-009 ACG0408 Andrew C. Goldstein, 20-Mar-1984 17:08 
Remove obsolete EXESGETACCESS 


v03-008 LMP0190 L. Mark Pilant, 6-Feb-1984 9:07 
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FOAL OOO. Bee 1R8e BERT 8e POURS Bacra yOh=0O ef) 


6 28 ; Remove the assumption that a CHIP block has 16 byte granularity. 
oY ; v03-007 bang}ss b. Mark Pilant 19-Jan-1984 15:25 
2 Mo dity the inter are to the EXESCHKxxxACCES routines to allow 
°¢ ; additional protection information to be checked. 
0 8 ; V03-006 RSHO083 R. Sco 22-Nov-1983 
0 65 ; Modif return otetus hy EXESVAL.. IDNAME "i $35. NOSUCHID 
50S 66 ; to SSS_IVIDENT 
6 o8 : V03-005 RSHO044 Scott Hanna 12-Jul-1983 
3 $3 ; Complete EXESVAL” IDNAME 
0000 71 : V03-004 RSHO042 R. Scott Hanna 22-Jun-1983 
4 if 3 Add EXESVAL_IDNAME 
$09 7% : v03-003 wMC0001 | ag Cardoza 18-Apr-1983 
44 2 : Add EXESCHKEXEACCE 
000 77: v03-002 KDM0002 Kathleen D. Morse 28-Jun-1982 
0900 78 ; Add SPRVDEF and $VADEF. 
0000 79 ; 
0000 80 ;-- 
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-SBTTL Local Macro Definitions and storage 


This macro is used to define masks for the scan table. It defines 
local symbols for the mask bit position, mask longword, and symbols 
used to build the scan table with the TABLE_BLD macro. Each invocation 
of the macro allocates successive bits to be used in the table. The 
macro is invoked as follows: 


MASK_DEF name,<<range>,...> 
Where range is a single decimal number or two numbers 
separated by a comma. These numbers speci ty a single or 
contiguous range of byte offsets in the scan table for 
which the scan bit is to be set. 

Example: 
MASK_DEF ID_NAME ,<<65,90>,<97,122>,<48,57>,<36>,<95>> 
This would define the symbols MASK_V_ID_NAME and 
MASK_M_ID_NAME. It will also cause the Bit MASK_V_ID_NAME 
to be set in the scan table at offsets which correspond to 
the characters A-Z, a-z, $, and _. 

«MACRO MASK_DEF MASK_NAME,LIST 


.MACRO MASK_DEF_2 RANGE_LOW,RANGE_HIGH 

IF 8 RANGE_HTGH> 
| 
j 
| 


a Z TG 
$$ = 1 


oIFF 

$$ = RANGE_HIGH-RANGE_LOW+1 

CHAR = RANGE_LOW 

.REPE 

MASK_DEF_3 \CHAR 
RAR + 1 


CHAR = C 
.ENOR 


.MACRO MASK_DEF_3 $$$ 
2 NOF THAR’ $$$ 
CHAR'SSS = 1@MASK_K_NUM 


CHAR’ S88 = CHAR'S$$ ! <1@MASK_K_NUM> 


PWN O ODNAUE WIN O OD NOAUE WIN CO OONOA UE WI CO OONOUS Win 


SOOSCSCOCOCOCOOSOSOOCOSCOOCOOSCOOOSCOSOSOSOOSCOOOOOOSOOOOOOSOOOOOOOOoOO 
OOoOCOCCCOCOCSCOOOCO SOOO OOCOSCOOSOOOOOOOOOOOOOSOOOoOSoOO 
COOCOCOCOOCOCCOSOOOSOOSOCOOOCOCOOCOOOoOoOoOOO: 


COOCOCOCOCOCOCOOCOOOOCOSOO OOOO OOCOO OOOO OCSOOOOOCOOOOOOOOOCOOOOOOOOOCOOOoOO 


am a ed od 8 8) So 3 
DPE PLDPE DPE DP PAD Mars fe Be BB BE EB ANNAN IAI PONNPNIPYPY 2 OO es 


i ‘ 

8 IF NDF MASK_K_NUM 
00 3 MASK_K_NUM = 0 
09 1 MASK_V_"MASK_NAME = MASK_K_NUM 
0 ¢ MASK_M_"MASK-NAME = 1@MASK_K_NUM 
0 . IRP CLASS <LIST> 

4 MASK _DEF_2 CLASS 
0 6 MASK_K_NUM = MASK_K_NUM + 1 

~ENDA 


cong 


Locat 


0000 


C 


SOCSCSCSCOOSCOOCOSOOSOOOCOOCOOOOOOOOOSOOOOOOSOOSOOoO 
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SOOO SCOSCOOSOSOOSOSOSOOSOOSOOOOOOOOoOSoOS 
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This macro uses symbols defined by the MASK_DEF macro to build 
the scan table. 

MACRO TABLE_BLD 

MACRO LL. BLD 2 $$ 

CRAR'SS 


-BYTE CHAR'SS 


Define the scan table mask bits 

MASK_DEF NUMBER , <<48,57>> 

MASK—DEF 1D_NAME ,<<65,90>,<97,122>,<48,57>,<36>,<95>> 
Build the scan table 


-PSECT YSEXEPAGED 


SCAN_TABLE: 


TABLE _BLD 


70-9 
zA-Z, a-z, 0 


snag 


50 


00000000 EF 


3¢ 


Es 


wm 


; 


5 
5 
8 
é 
$i 
; 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
5 
6 
6 
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SYS.SRCJEXSUBROUT .MAR; 1 (6) 
~SBTTL CHECK PROCESS RESOURCE REQUEST 
~-ENABL LSB 


NT QUOTA AND COND 


UNT Q L 

QUOTA ONLY AND CON A 

OURCE REQUEST AND I 
SOURCE REQUEST AND CONDITIONAL 

I T 

L 

$s 


CK TE 
m FF 

M CHECK T_RESOURC 

SNG CHECK IT RESOUR 

E ROUTINES ARE CALL HECK IF APR iw HAS SUFFICIENT RESIDUAL 

A TOG A_RESOUR SUFFICIENT Q 6 IS NOT AVAILABLE AND THE 

ESS IS LED FOR RESOURCE W C S ENTERED 

A O WAIT FICIENT QU IL . 
INPUTS: 


R4 = CURRENT PROCESS PCB ADDRESS. 
IF ENTRY AT EXESBUFFRQUOTA, EXESBUFQUOPRC, OR EXESMULTIQUOTA, THEN 
R1 = NUMBER OF UNITS OF RESOURCE REQUESTED. 
IF ENTRY AT EXESMULTIQUOTA OR EXESSNGLEQUOTA, THEN 
R2 = ADDRESS OF QUOTA WORD CONTAINING REMAINING UNITS FOR SPECIFIED 
RESOURCE. 
NOTICE: EXESMULTIQUOTA and EXESSNGLEQUOTA cannot be used to check 
our vores 1/0 Byte Count Quota, since these quota and count 
values are stored in longwords. EXESBUFFRQUOTA or 
EXE SBUF QUOPRC must be use to check Buffered i/0 Byte Count 
ucta. 
OUTPUTS: 
RO LOW BIT CLEAR INDICATES CHECK FAILURE WITH CALLING IPL PRESERVED. 


RO = SS$_EXQUOTA = QUOTA EXCEEDED OR REQUEST GREATER THAN 
MAXIMUM PROCESS OR SYSTEM QUOTA. 


RO LOW a INDICATES SUCCESS WITH IPL SET TO AST DELIVERY 


RO = SS$_NORMAL = NORMAL COMPLETION. 


R1 R R 
EXESBUFFRGUOTA P 
EXE SBUF QUOPRC P 
EXESMULTIQUOTA P 
EXESSNGLEQUOTA OD 


=> Preserved 
=> Destroyed 


vucooN 
oOo TOW 
ov 


seerel _AEXENONPAGED 


EXESBUF FRQUO ; CHECK BUFFER BYTE COUNT QUOTA 


The see table shows how the various routines treat R1 - R3. 
mOVIUL " 10C$GW_MAXBUF , RO 3; Get max system buffer size. 
| 
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tae CHECK PROCESS RESOURCE REQUES ae 9 88: or 38 Yes” SRCJEXSUBROUT.MAR; 1 . (6) 
50 51 1 7 4 CMPL R1,R0 ; REQUEST GREATER THAN SYSTEM MAXIMUM? 
‘2A : és EXESBUFQUGPRE 108 bh Ox PROFESS BUFFER QUOTA ONLY 
50 0088 C4 4 ¢ MOVL PCBSL_JIB(R4 “cae ADDRESS OF s09 INFORMATION BLOCK 
52 A 1 MOVAB J48st cavTent (AO, Re 7SET ADDRESS OF BYTE COUNT QUOTA 
53 D 1 § MOVL #32, R ESTABLISH LONGWORD QUOTA CHECKING. 
24 AO i A H 5 cr ebu R1 JIBS... BYTLM(RO) sieht = ATER THAN PROCESS MAXIMUM? 
50 (1C i IE , 108: MOV ZWL #5S$_EXQUOTA,RO ;SET QUOTA EXCEEDED 
74 EXESSNGLEQUOTA: : ICHECK SINGLE-UNIT RESOURCE REQUEST 
51 01 00 6 MOVL #1,R1 3SET NUMBER OF UNITS OF RESOURCE GeGvesTeD 
§ EXESMULTIQUOTA:: ;CHECK MULTI-UNIT RESOURCE REQUEST 
53 10 00 7 MOVL #16, R3 sEstabiish word Longs® quota checking. 
7E «OC 78 15$: MOV VPSL -(SP) :Save PSL for possible resource wait. 
A 4 DSBINT #IPL$_SYNCH :Synchronize system data base access, 
zand save current IPL on stack. 
st 6206=C«SS( iC CCD ? CMPZV) «#0, R3, (R2), R1 ;Compare either word or Longword 
0 ¢ iusing number of bits value in R3. 
OE 1F 00 $ BLSSU 30$ sBranch if insufficent resourse left. 
50 01 3c 00 4 MOVZWL #SS$_NORMAL,RO Enough quota pets: normal completion. 
6— 02 00 OQO3A 5 MOVL #1PL$ _ASTDEL, (SP) zsInsure exit IPL is 2, so that qieoenee 
03D § :resource is Seeaereed from AST 
tH S$_NORMAL & SS$_EXQUOTA common rent? 
03D 8 208: ENBINT tRestore IPL as appropriate. 
5E 04 AE aE 040 9 MOVAB 4(SP),SP ‘Remove saved PSL from stack. 
0 bee + RSB sReturn to caller. 
50 1¢ 3¢ 0045 38 30$: MOVZWL #SS$ E*aere RO- ;Setup possible exceeded quota return 
FO 24 AS) «=6(0A OED SO (0048 9 BBS #PCBSV_SSRWAIT, tcode, and branch if resource wait 
0040 94 PCBSL Vststna). "208 smode is disabled. (NB: restored IPL 
04D 95 swill be that of our caller.) 
01. 3C 0040 9 MOVZWL ensue -ASTWAIT, RO :Set AST wait resource number. 
5E O4A 43 050 g MOVAB 4(SP)> SP Strip saved caller's IPL from stack. 
FFA9® 30 0054 98 BSBW SCHSRWAIT tWait; adding PC stacked caller's PSL. 
CF 611 0057 99 BRB 15$ iThen try again. 
0059 00 -DSABL LSB 
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EXSUBROUT = EXECUTIVE SUPPORT SUBROUTINES 16-SEP=1 7: AX/VMS Macro v04-00 Pa 
vitae tM CHECK ACEEES PROTECT IDG aes Ad a ea et ee e 
117 359 ; AND ORB ADDRESSES. aS Lee CASE, EXESCHKPRI_INT RETURNS SS$_NORMAL IF 
iif ; ACCESS IS ALLOWED or! SS$_NOPRIV IF ACCESS IS DENIED. 
1E 8B 1 6 10$:  PUSHR #*M<R1,R2,R3,R4> ;PRESERVE NEEDED REGISTERS 
113 $4 : IF THIS Is, THE OLD INTERFACE, DETERMINE THE ARB AND ORB ADDRESSES. THEN 
11 : FABRICATE THE CHPCTL BLOCK ON THE STACK. IF THIS IS THE NEW INTERFACE 
11 $ > SIMPLY PAS ss THE REGISTERS ON THROUGH. IN EITHER CASE, THE CONTROL BLOCK 
1 ? 3; MUST BE NOW. 
1 $3 ASSUME CHPCTLSC_LENGTH EQ 12 
7E «#7¢ «(011 i CLRQ 0s =( SP) ;BUILD CONTROL BLOCK ON THE STACK 
7E 04 0118 fe CLRL 3s = (SP) 
52 DO 011 7 MOVL  SP,R2 ;SAVE THE ADDRESS FOR LATER 
D4 rh CLRL eR [NO RETURN ARG BLOCK 
1 id: ASSUME CHPSM_READ EQ CHPCTLSM_READ 
1 7 ASSUME CHPSM~ -USEREADALL EQ LEHPCT CTLSR USEREADALL 
28 ASSUME CHPSM~WRITE EQ CHPCTLSM_WRITE 
62 1C AE 00 01 80 MOVL  28(SP), CHPCTLSL ACCESS (R2) ACCESS DESIRED 
04 A2 0 D 1 1 MOVL ac HPSM’R HPSM_USEREADALL, petite FEAGS (aD) SET FOR READ 
62 FABF 9 oi A 8¢ BITB PT CKARASAY AREAD! TARASA. EXECUTE> CHPCTL c aaccessinas 
0 1 1 : BEQL SOs :XFER READING 
04 A2 06 8C 1 4 XORB #CHPSM_WRITE! CHPSM _USEREADALL, CHPCTESL FLAGS(R2) sELSE SET WR 
4 5 ;AND NO READALC 
55 05 134 5 20S: TSTL = RS ANY UCB GIVEN? 
oi 1 : 8 BEQL 308 XFER IF NOT REGISTERS ALL SET 
50 008C C4 06 1 9 MOVL  § PCBSL_ARB(R4) RO NOT E THE ARB ADDRESS 
51 1C AS D 13D 90 MOVL UCBSL_ORB(RS) ,R1 AND THE ORB A Dns 
10 «(11 141 31 BRB 40$ '60 DO THE PROTECTION CHECK 
1? 38 3: NOW DO THE PROTECTION CHECK. 
50 05 14 95 30S: TSTL RO :WAS AN ARB GIVEN? 
- 14 3% BNEG 408 XFER IF 
54 OOO000'EF DO 0147 39 MOVL cits GL_P ELSE Gey THE PROCESS DEFAULT 
50 0008S C4 09 14 38 MOVL ot eke) RO + AGENT'S RIGHTS BLOCK 
OO'EF 1 135 399 40$:  JSB EXESEAKPRO. INT [DO THE PROTECTION CHECK 
139 4 1 ; FINALLY, RETURN WITH THE STATUS POSTED IN RO. 
SE Oc CO 138 4 : ADDL2 #CHPCTLSC LENGTH, SP :CLEAN OFF THE TEMP CONTROL BLOCK 
1E BA 015C 404 POPR #*M<R1,R27R3,R4> TRESTORE SAVED RESISTERS 
ar b> 13 405 TSTL (SP) [POP OFF ACCESS MASK 
5 0160 4 : RSB SRETURN TO CALLER 
161 4 .DSABL LSB 
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I 
-SBTTL CLEANUP AN OBJECT RIGHTS BLOCK 

EXESCLEANUP_ORB = DELETE ALL STRUCTURES REFERENCED BY AN OBJECT RIGHTS BLOCK 
THIS ROUTINE iB GALLED TO DELETE ALL Sraus TURES pEreRENCED BY AN nite ts RIGHTS 
BLOCK. THIS ROUTINE DOES NOT DELETE THE ORB ITSELF. THE ASSUMPTION IS MADE 
THAT ALL STRUCTU nee TO BE DELETED RESIDE IN PAGED-POOL. BEFORE EACH STRUCTURE 
ACCESS TO IS_IS SYNCHRONIZED BY WHATEVER METHOD IS REQUIRED. 
THE LIST OF ORB REFERENCED STRUCTURES WHICH THIS ROUTINE DISPOSES OF IS: 


1. LIST OF ACLS ASSOCIATED WITH THIS OBJECT RIGHTS BLOCK. 


INPUTS: 
OUTPUTS: 
RO-R3_ARE DESTROYED. 
ALL OTHER REGISTERS ARE PRESERVED. 
ALL STRUCTURES REFERENCED BY THE ORB ARE DEALLOCATED TO PAGED POOL. 
EXESCLEANUP _ORB:: ;DELETE ALL_ORB REFERENCED STRUCTURES 
7E 54 7D mova R4,-(SP) 7 SAVE ge 
SAVIPL SAVE IPL ON ENT 
7 a. oo MOVL R1,R5 :MOVE ORB ADDRESS. ae R5 
54 Q0000000'°EF DO MOVL CTLSGL_PCB,R4 sRETRIEVE PCB ADDRESS 
; DELETE THE ACLS WHICH ARE ASSOCIATED WITH THIS OBJECT RIGHTS BLOCK. ACCESS 
: TO THE ACLS IS CONTROLLED BY A MUTEX RESIDING WITHIN THE ORB ITSELF. THIS 
; py the IS wer D FOR WRITING BEFORE REFERENCING THE ACL LISTHEAD. IF THE ACLS 
: ARE NOT IN A QUEUE FORMAT BUT ARE IN A DESCRIPTOR STYLE FORMAT, THEN THEIR 
: DELETION IS ABYPASSED. 
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WUAWMIMWAIWWIOOO CF B NI" O POO WW SS SY tt = 
> BS SS 8 5-2 SB BS BBE BB. BSS BES BS EB EB SS SSB BBB BB BB SB SB 8-8 SB BB SS Su 


01 =€E1 BBC #ORBSV_ACL_QUEUE sSKIP ACL QUEUE DELETION IF ne Ae 
1D OB AS rts ORB$B_FLAGS(R5), $0s sARE IN A DESCRIPTOR STYLE FOR 
50 04 AS 33 9 MOVAB ORBSL gh -MUTEX(R5),RO ;RETRIEVE ADDRESS OF ACL MUTEX 
FE83" $3 29 BSBW SCHSLOCK sLOCK ACL MUTEX FOR WRIT'NG 
50 8 83 oF 26 10$: REMQUE SORBSL ACLFL(R5) ,RO sREMOVE NEXT ACL FROM QUEUE 
9 D ONE IF QUEUE a3 ha 
51 08 AO *f 54 MOVZ2WL ACL$W_SIZE(RO),R1 TRETRIEVE SIZE 0 
FE76" 30 55 BSBW EXESDEAPGDSIZ ;DELETE THE itu” 
F111 2$ BRB 10$ SCONTINUE UNTIL ACL QUEUE IS EMPTY 
50 04 AS 3 38 208: MOVAB ORBSL_ACL_MUTEX(R5),.RO ;RETRIEVE ADDRESS OF ACL MUTEX 
FE6D' 3 23 BSBW SCHSUALOCR SUNLOCK ACL MUTEX 
61 ; 
68 | ; RESTORE THE ENVIRONMENT TO WHAT IT WAS ON ROUTINE ENTRY AND EXIT. 
i Py 
65 30$: ENBINT sRESTORE IPL 


R1 = ADDRESS OF OBJECT RIGHTS BLOCK. 
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SUBROU INES "973 
DEPENDEN SCHEDULER 5-SEP 
-SBTTL INSERT ENTRY IN TIME DEPENDENT SCHEDULER QUEUE 

EXESINSTIMQ = INSERT ENTRY IN TIME DEPENDENT SCHEDULER QUEUE 


THIS RO TIME te CALLED TO INSERT AN gnTry IN THE TIME pergvecnt SCHEDULER 
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ED SYS.SRCJEXSUBROUT MAR; 1 


CUTIVE SUP 
T ENTRY IN 
i i 
119A 4 3¢ 
119A 64 s 
13a 058 3 
19A 474 + QUEUE. RY IS THREADED INTO THE QUEUE ACCORDING TO ITS IME. 
194 475 : THE QUEUE 13 ORDERED SUCH THAT THE MOST IMMINENT ENTRIES ARE MY THE FRONT 
i: Ella 
19A 478 + INPUTS: 
138 4 0 : RO = LOW ORDER PART OF EXPIRATION TIME. 
19A 481: = HIGH ORDER PART OF EXPIRATION TIME. 
19A 4 ‘ ; R5 = ADDRESS OF ENTRY TO INSERT IN TIME QUEUE. 
19A 4 4 ; IPL MUST BE IPLS_TIMER. 
19A 4 : : OUTPUTS: 
O19A 488: SPECIFIED ENTRY IS INSERTED INTO THE TIME DEPENDENT SCHEDULER QUEUE 
19A 489: ACCORDING TO ITS DUE TIME. 
19A 490 se 
680 493 PSECT 
$090 198 EXESINSTIMQ: : ;INSERT ENTRY IN TIME QUEUE 
AS 50 7D 0000 49 mova TOE sa TIME (RS) :SET ABSOLUTE DUE TIME 
53 0000°CF DE 004 49 MOVAL ue TOFL,R3 :GET ADDRESS OF TIME QUEUE LISTHEAD 
52. 53 «=O (0009 496 MOVL R [COPY ADDRESS OF TIME QUEUE LISTHEAD 
52° 06 ag DO 000C 497 10$: MOVL ha resn (n2), R2 GET ADDRESS OF NEXT ENT 
= eh O18 199 Beat 80 sEND OF QUEUE? 
1C A2 of D1 0015 500 CMPL  =R1, TQESQ_TIME+4(R2) COMPARE "AIGH ORDER PARTS OF TIME 
Fl oF 019 301 BLSSU 108 [IF LSSU NEW ENTRY MORE IMMINENT 
06 1A 001B. C5 Q BGTRU 20$ SIF GTRU NEW ENTRY LESS IMMINENT 
18 a2 50 01 001D 50 CMPL RO, TOESQ_TIME(R2) i COMPARE LOW ORDER PART OF TIRE 
E9 1F 0021 304 BLSSU. 1 :IF LSSU NEW ENTRY MORE 
62 65 OE 033 305 20S: INSQUE TOESL_TOFL(RS),TOESL_TOFL(R2) ; INSERT NEW ENTRY IN TRE "queue 


I PORT  SUSROUT INES .* 197$60- 1388 9: tt 26 AX/VMS Macro V04-00 Page 1 


SYS.SR che EXSUBROUT. MAR; 1 (1 


snag 


= a 
=n 
oe 
am 
Lehane 
~c 


«SBTTL MAXIMIZE ACCESS MODE 


TIVE SUP 
E ACCESS 
i* 
; EXESMAXACMODE - MAXIMIZE ACCESS MODE 
5 i : THIS ROUTINE IS CALLED TO MAXIMIZE A SPECIFIED ACCESS MODE WITH THE PREVIOUS 
4 12 3 ; MODE FIELD OF THE CURRENT PSL. 
, 13 3 ? INPUTS: 
, 1? ; ; RO = ACCESS MODE TO MAXIMIZE WITH PREVIOUS MODE FIELD OF PSL. 
f e : outputs: 
7 1 THE SPECIFIED ACCESS MODE IS MAXIMIZED WITH THE PREVIOUS MODE FIELD 
, g : OF THE CURRENT PSL AND RETURNED IN REGISTER RO. 
o , gi ; REGISTERS R2 AND R3 ARE PRESERVED ACROSS CALL. 
027 : 
0000019A § .PSECT YSEXEPAGED 
19A : EXESMAXACMODE : : :MAXIMIZE ACCESS MODE 
51 DC O19A MOVPSL R1 READ CURRENT PSL 
50 51 02 16 ED 019¢ 0 CMPZV  #PSLS$V_PRVMOD,#PSLSS -PRVHOD.. R1,RO ;COMPARE WITH PREVIOUS MODE 
05 15 O1AT 1 L LEQ SPECIFIED ACCESS MODE LESS PRIVILEGE 
50 51 02 16 F O13 238 a EXtZV #PSLSV_PRVMOD , #PSLSS _PRVAOD, ue RD SEXTRACT PREVIOUS MODE FIELD 
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SYS.SRCJEXSUBROUT .MAR; 1 (11) 
- ~SBTTL REMOVE ENTRY FROM TIME DEPENDENT SCHEDULER QUEUE 

; EXESRMVTIMQ = REMOVE ENTRY FROM TIME DEPENDENT SCHEDULER QUEUE 

THIS ROUTIN CALLED TO REMOVE ONE OR MORE ENTRIES FROM THE TIME 


E I$ 
DEPENDENT SCHEDULER QUEUE. ENTRIES ARE REMOVED BY TYPE, ACCESS MODE, 
REQUEST IDENTIFICATION, AND PROCESS ID. 


: INPUTS: 
: R2 = ACCESS MODE (ALL EQUAL AND HIGHER ACCESS MODES). 
; R3 = REQUEST IDENTIFICATION (ZERO IMPLIES ALL). 
: R4 = TYPE OF ENTRY TO REMOVE (ALL SINGLE AND REPEAT ENTRIES). 
; RS = PROCESS ID OF PROCESS TO REMOVE ENTRIES FOR. 
: IPL MUST BE IPL$_TIMER OR ABOVE. 
: IF SYSTEM SUBROUTINE OR WAKE REQUESTS ARE BEING REMOVED, THEN ACCESS 
; MODE AND REQUEST IDENTIFICATION ARE NOT USED AND NEED NOT BE SUPPLIED 
; IN THE CALLING SEQUENCE. 
: OUTPUTS: 
: ALL ENTRIES OF THE SPECIFIED TYPE ARE REMOVED FROM THE TIME 
F DEPENDENT SCHEDULER QUEUE. 
.PSECT 
EXESRMVTIMQ: : ;REMOVE ENTRY FROM TIME QUEUE 
10$:  MOVAL W*EXESGL_TOFL,RO 'GET ADDRESS OF TIMER QUEUE LISTHEAD 
MOVL ‘COPY LISTHEAD ADDRESS 
208:  MOVL TQESL_TOQFL(R1),R1 :GET ADDRESS OF NEXT ENTRY 
CMPL = R17, RO SEND OF QUEUE? 
BEQL 80 “IF EQL YES 
cHPZV #0,#2,TQESB_ROTYPE(R1),R& jREQUEST TYPE MATCH? 
CMPL R5,TQE$L_PID(R1) sPROCESS ID MATCH? 
BNEQ [IF NEQ NO 
CMPB ss #@TQESC_TMSNGL,R4 ‘SYSTEM SUBROUTINE OR CANCEL WAKE? 
BNEQ 40$ [IF NEQ YES = SKIP ID-ACCESS TEST 
TET 1 @ TALL REQUEST ID'S MATCH? 
BEQL 30$ 3 QL Y 
cHPL R3, TQESL_ASTPRM(R1) REQUEST IDENTIFICATION MATCH? 


B : N 
30$: CMPZV «#0, #2, TQESB_RMOD(R1) ,R2 st net en LESS THAN SPECIFIED MODE? 


BLS TIF L 

40$:  PUSHR #*M<R2,R3> [SAVE REGISTERS R2 AND R3 
PUSHL TQE$L_fQBL(R1) [SAVE BACKWARD L INK OF ENTRY 
PUSHL RO SSAVE REGISTER R 
REMQUE TOES TOFL(R1),RO SREMOVE ENTRY FROM QUEUE 
CMPB ss #TQEST_SSSNGL,R4 SCANCEL SYSTEM SUBROUTINE? 
BEQL 708 [IF EQL YES 
MOVZWL TQESL_RQPID(RO),R1 [GET PROCESS INDEX 
MO T ADDRESS OF PROCESS PCB 


:G 
VL aW“SCASGL peayectR1 RI °G 
CMPL TQESL_ROPTD(R ) -PCBSL_PID( 

C 


E 

R1) ;PROCESS ID MATCH? 
BNEQ 60 :1F NEQ NO 
CMPB ss #TQESC_WKSNGL,R4 >CANCEL WAKE UP REQUEST? 
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FUNCTIONAL DESCRIPTION: 
This rout ine performs a series of PROBEs to check the read 
accessibility of the uper ruse tee buffer. Multiple PROBEs 
must be done because the PROBE instruction only checks the 
first and last pages while the user buffer may span several pages. 
CALLING SEQUENCE: 
JSB/BSB EXESPROBER 
INPUTS: 
RO Buffer address to be probed 
R1 Buffer length 
3 Access mode to maximize with PSL<PRVMOD> 


SIDE EFFECTS: 


pele jlelelelelelelelelelolelalalolelelelelolaloel elelelola) 
wwowowowowowvowowowvownowowowowowowvowowownoov0no 


OOoOQCoQCCCooQCoooooOoOoOooOoooOoOoOoOoOoOooOo WO 


YSIS Be BB BB BAW AAI AIRPORT 2  QOOOOOO OC 


Oo 

Oo 

oO 

~o 
PEGA AAOAAAASAAAAEAAAAAAAAAAAAAAAAASOSAAAASAOOHAASAOAAAAOOSCOOOOOH 
DWONOAU EAN @@ OOONOA UE WO OD NOU EWN OOO NAW E WIN OOONIAUE WN OOONOUE WW 


ps4 RO through R2 are destroyed 
}44 ROUTINE VALUE: 
99 RO low bit set => successful return (SS$_NORMAL) 
4984 RO low bit clear => portion of buffer is inaccessible (SS$_ACCVIO) 
494 -- 
099 
0000 -PSECT AEXENONPAGED 
0059 EXESPROBER:: 
1 - & Or ADDL RO,R1 ; Ending address of buffer 
50 OFF 8F AA BR26 BICW #VASM_BYTE ,RO ; Truncate to start of page 
eS ee 061 SUBL R A : Calculate Length of buffer to probe 
52 FEQ0 of 3 te CVTWL «= #=*X200,R2 ; Set address adjustment constant 
51 ae 69 10$: CVTLW = R1,R1 : Greater than 32K? 
13, «1D tte a BVS 30$ : If VS, yes; check by chunks 
OoF 2 IFNORD R1,(RO),ACCVIO,R3 3; Can ends of user's buffer be read? 
50 25 3 . 3 SUBL R2,R ; Calculate VA of next page 
51 614 E 7 MOVAW (R1)CR2I,R1 : Calculate new Length 
Fi 14 00768 BGTR ; If GTR then more to test 
50 01 35 07D MOVZWL #SS$_NORMAL ,RO ; Indicate success 
0 0 7 RSB 3; and return 
1 30$: 
. oe. Se. 1 Ova RO,-(SP) ; Save current values on stack 
51 7600 8F 3C¢ 3 MOVZWL #*X7E00,R1 : i pun ysed stepping thru buf. 
3 ~ age 
6E 3} C 9 ADDL R1, (SP) ; Advance adaress by this amount 
04 AE 1 ¢ SUBL R1,4(SP) 3; Decrease count 
p¢ BSBB eo$ : Probe chunk 
05 E 9 BLBC RC, ACCVIO1 ; If LBC, no access 
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V04 EXESPROBER - Check read sccens ibitiey of g-§ B= 1 982 80:07:88 YeYS. SRCJEXSUBROUT .MAR; 1 << (11) vo 
~~ Fe Ft 9 MOVa (SP)+,RO 3; Pop pre-adjusted val off stack 
ty 38 a BRe. C188 BME a A 
9A 08 ACCVIO1: 
SE 08 £9 9A 664 ADOL #8,SP ; Clean off stack 
90 665 RSB 
9E 068 ACCVIO: 
50 OC 3 9E 66 MOVZ2WL S*#SS$_ACCVIO,RO 3; Indicate access violation 
pT 
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v04 - Check write accessibility o $78 sett 90:07:88 SYS.SRCJEXSUBROUT.MAR; 1 . a 
er) -SBTTL EXESPROBEW - Check write accessibility of user buffer 
if p++ 
74; 
of? ; FUNCTIONAL DESCRIPTION: 
$35 : This routine performs a series of PROBEs to check the write 
of8 g accessibility of the user-sup lied buffer. Multiple PROBEs 
679 ; must be done because the PROBE instruction only checks the 
? ? ; first and last pages while the user buffer may span several pages. 
6 : ; CALLING SEQUENCE: 
6 4 ; JSB/BSB EXESPROBEW 
6 $ > INPUTS: 
688 ; RO Buffer address to be probed 
689 ; Ri Buffer Length 
ooN 3 R3 Access mode to maximize with PSL<PRVMOD> 
69¢ > SIDE EFFECTS: 
694 : RO through R2 are destroyed 
69 : ROUTINE VALUE: 
698 ; RO low bit set => successful return (SS$_NORMAL) 
+4 3 RO low bit clear => oortion of buffer is inaccessible (SS$_ACCVIO) 
701 ;-- 
70 
PN -PSECT AEXENONPAGED 
Ae EXESPROBEW: : 
51 50 7 $ ADOL RO,R1 ; Ending address of buffer 
50 OFF He 70 BICW #VASM_BYTE,RO ; Truncate to start of page 
51 0 A SUBL 0,R ; Calculate Length of buffer to probe 
52 FEOO 4 709 CVTWL 436 #=*X200,R2 ; Set address ag ustment constant 
51 1 710 10$: CVTLW = R1,R 3; Greater than 32K? 
13 711 BVS 30$ 3 VS, yes; check by chunks 
18 208 
714 ; IFNOWRT R1,(RO),ACCVIO,R3 ; Can ends of user's buffer be written? 
50 § 715 L R2 RO ; Calculate VA of next page 
51 614 216 MOVAW (R1)CR2],R1 : Calculate new Length 
Fi 71 20$ : If GTR then more to test 
50 601 ne MOVZWL #SS$_NORMAL ,RO ; Indicate success 
71 3; and return 
720 
721 30$: 
re $6 7 § va RO,-(SP) ; Save current values on stack 
51 7€00 8F 4 ? MOVZWL #*X7E00,R1 ; ot hunk ysed stepping thru buf. 
: - age 
6E 2} 725 ADDL R1, (SP) 3; Advance adartes by this amount 
04 AE 1 7 § SUBL R1,4(SP) ; Decrease count 
dc 7 BsBB «208 : Probe chunk 


— bev ae Bee 0 'S28Ep=198e B8:27:88 USYSTSRCHESSCenouTs man: 1 


BLBC RO accy 01 : if LBC, no access 
MOVG (SP)+ AR Pop pre-adjusted valugs off stack 
BRB ee if length now LT 32k. 
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Saat EXESPROBER_DSC, EXESPROBEW_DSC = Check b mit} 99:07:88 LEYS SRCIEXSUBROUT MAR; 1 . hip 
; 4 ; ~SBTTL EXESPROBER_DSC, EXESPROBEW_DSC = Check buffer accessibility 
; if 5 34+ 
E f ; : FUNCTIONAL DESCRIPTION: 
E 7 § : Given the address of a buffer descriptor, this routine checks 
E 740 ; the access iil ty of the buffer descriptor and the specified 
; oe) : accessibility of the buffer. 
BE 748 : eetee NOTE WELL eeee8 
Sf 745 : If the buffer is accessible as desired, the buffer descriptor 
OE 8 3 information is returned in R1 and R2 including the high 16 bits 
OE 747 ; of the first long word. The caller MUST NOT fetch the 
OE ok 3 descriptor again as that would open a protection hole. Rather, 
OE 749 ; he/she should store R1,R2 for later use in local storage. 
; £30 3 storage. 
a 136 > CALLING SEQUENCE: 
0&3 754: JSB/BSB EXESPROBER_DSC 
Boe P3 3 JSB/BSB EXESPROBEW_DSC 
O0e 139 > INPUTS: 
oe 139 : R1 Address of a buffer descriptor 
OE 761 ; SIDE EFFECTS: 
Bae oo : R3 is destroyed 
O0e £65 : ROUTINE VALUE: 
b0E 76 : RO Low bit get => successful return (SS$_NORMAL) 
QOE 768 ; R1<0:15> = size of buffer in by es 
Boe £6? : R1<16:31> = contents of the high word of the descriptor 
OE 770 ; R2 = Buffer address 
QOE 771; RO low bit clear => portion of buffer is inaccessible (SS$_ACCVIO) 
BoE Ak: : R1 and R2 destroyed 
oes hg 
00000143 775° -PSECT VSEXEPAGED ; This code can page 
i oe 
1A9 78 EXESPROBER_DSC:: 
33 bs 1s oe cLRL + ; Flag to indicate read probe 
1AD 7 ? EXESPROBEW DSC:: 
53 01 00 QIAD 7 § #1,R3 ; Flag to indicate write probe 
180 7835 10$: IFNORD #8,(R1) moaccess ; Error if can't read descriptor 
50 01 00 186 784 MOVL #SS$_NORMAL,R i Assume buffer is accessible 
$1 61 «7D 0189 «785 MOVG (RI) TRI R <o:1 > = size of buf, R2 = adr 
18C) Ol 7 § : R1<16:31> = undefined, 
0200 8F 51 «Bt lB cMPY ORT, #512 BG Beg A 
3 one probe cove e bu ? 
11 Hy 18 7 § BGTRU 508 3; Branch Teast need a probe loop 
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Branch if check tng for write access 
See if buf er can be read by caller 
Branch if buffer can be read 
otherwise, flow through the PROBEW 

and return SS$_ACCVIO 

0 R1,(R2) See if buffer can be written by caller 
80$ Branch if write access is allowe 
NOACCESS Buffer cannot be accessed 


PROBE loop to check this buffer for the desired access. 


#*M<R1,R2> ; Save contents of buffer descriptor 
; Caller must not refetch these 

W*EXESPROBER ; Assume checking for read access 

#0,R5,60$ ; Br if checking read access 
; and set R35 = 

Ad ‘ilamcncinete ; Check for write access 

R2,R ; Buffer address 

R4 ; Size of buffer in bytes 

a(SP)+ : Call PROBER/W 

#*M<R1,R2> ; Recover contents of buf descriptor 
; Return with RO = status 

S“#SS$_ACCV1O,RO 
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E = Validate 1D name RS PM Bt Me Aes Pa a 


~SBTTL EXESVAL_IDNAME = Validate ID name 


EXSUBROUT = EXECUTIV 
FOee000 EXESVAL_I 


EXESVAL_IDNAME = Validate ID name 
FUNCTIONAL DESCRIPTION: 


This routine checks the accessibility of the ID name descriptor 
and the name pulser It then validates the ID name. Identifier 
names are 1 to characters in length, consist of alpha, numeric, 
‘ or : characters, and must contain at least one non-numeric 
character. 


weeee NOTE WELL e202 
If the buffer is accessible as desired, the buffer descriptor 
information is returned in R1 and R2. The caller MUST NOT fetch 
the descriptor again as shot would open a protection hole. Rather, 
he/she should store R1,R2 for later use in local storage. 

CALLING SEQUENCE: 


JSB/BSB EXESVAL_IDNAME 


INPUTS: 

R1 Address of an ID name buffer descriptor 
SIDE EFFECTS: 

R3 destroyed 


ROUTINE VALUE: 


RO low bit set => successful return (SS$_NORMAL) 

Ri = size of buffer in bytes 
R2 = Buffer address 

RO low bit clear => portion of buffer is inaccessible or an 
invalid name was specified. R1 and R2 destroyed 


-PSECT YSEXEPAGED 
EXESVAL_IDNAME: : 
id EXESPROBER_DSC ; Check ID name buffer accessibility 
Br if no access 


BICL #-XFFFFOQOO.RI : R1 = Id name size 
#°M<R1,R2> : 


FFBS4 

af 0 

51 FFFFOOOO 8F 

96 Save size and address 
R1,#KGBSS_NAME 


20 : Invalid name size? 


SNIP AAA AAA AAD MAAN AIA ES BS BS ES BE BWIA AAAI PUNPORINUNININ — — 
WWI OODNA NEWS OD NAN LEWIN SO ODNA NEW OOO NAUVOO NONE WI OOO 
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ee ee me) ee a Ds Ba Be i i i i se ee Be ee es De De es es ee De De i es ee es Be Be es Bs es es Be es | 


F 
1 1 
15 & BGTRU 1% ;_Br if yes 
01 FDF4 CF 62 = §1 6 SPANC R1,(R2),SCAN_TABLE ,AMASK_M_NUMBER ; Span the numeric characters 
0c D BEQLU 18 3; Z bit set means id name has numerics 
F 3 only. (The ent re string was scanned) 
02 63 61 9 ? F SPANC RO,(R1),(R3),#MASK_M_ID_NAME ; Span valid characters 
& BNEQU 1% ; Br if we found an invalid character 
50 1 » § MOVL #SS$_NORMAL ,RO ; Return success 
F OD B 


BRB 
50 00002224 74 18: MOVL #SS$_IVIDENT,RO ; Return error 
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POPR 
RSB 


"SSEp=198e 88:24:38 


#*M<R1,R2> ; Restor 


AX/VMS Hd cro v04-00 
SYS. SRCIE XSUBROUT .MAR; 1 


e size and address 
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EXSUBROUT - EXECUTIVE SUPPORT SUBROUTINES 16-SEP-1984 00:07: AX/VMS Macro v04-00 Page 24 
Symbol table ae sSetS ooo tia toys SRC] XSUBROUT.MAR; 1 . (3) 
£E = 1 CHARTS = 
ACBSV_QUOTA = 6 CHAR? Fo 
ACCVIG ER 6% CHAR = 
ACCVIO1 9A R 4 CHAR = 

L$W_SIZE = ; CHAR = 
ARMSM_DELETE = CHAR = 
ARMSM_EXECUTE = 4 CHAR : s 
ARMSM_READ = 1 CHAR = 
ARMSM_WRITE = CHAR § = 

AR = 1 CHAR 2 8 

HAR100 = CHAR $ = 00 0 
CHAR101 = 8 CHAR 8 
CHAR1 ¢ = CHAR = 
CHAR = 33 CHAR = 
CHAR104 = CHAR9 = 
CHAR105 = 000000 CHARDS = 000 4 
CHARI OS = 000000 CHARO = Be8 00 
CHAR10 = : 00 CHPS$M_READ = 449 
CHAR108 = bo CHPSM_USEREADALL = 00000004 
CHAR109 = 0000000 PSM_WRIT = 00000002 
CHAR110 = 44 CHPCTCSC_LENGTH = 444 
CHAR111 = 44 00 CHPCTLSL_ACCESS = 0000000 
Shan i¢ = B28 000 CHPCTLSL_F = 00000004 
CHAR11 = 0000000 CHPCTLSM_READ = 00000001 
CHAR114 = aaa CHPCTL$M_USEREADALL = 00000004 
CHAR115 = 0000000 CHPCTLSM_WRITE = 00000002 
CHAR116 = 0000000 CTLSGL_PCB eerereee§ =X 03 
CHAR117 = 444 EXESBUFFRQUOTA 00000000 RG 04 
CHAR118 = 0000000 EXESBUF QUOPRC ase t RG 04 
CHAR119 = 444 EXESCHKCREACCES 0000105 RG 03 
CHAR120 = 0000000 EXESCHKDELACCES 00000100 RG 03 
CHAR121 = aaa EXESCHKEXEACCES i449 F RG 03 
CHAR122 = 0000000 EXESCHKLOGACCES 000100 RG 03 
CHAR36 = aia EXESCHKPHYACCES 00000105 RG 03 
CHAR48 = 0000000 EXESCHKPRO_INT aeeeeeee =X |= 03 
CHAR49 = 0000000 EXESCHKRDACCES 0000010A RG 03 
CHARSO = 4444 0 EXESCHKWRTACCES 00000114 RG 03 
CHARS1 = 444 0 EXESCLEANUP_ORB 00000161 RG 03 
CHARS = 000 EXESDEANONPAGED eeeeenee 01 
CHARS = 3 EXESDEAPGDS1Z eaetaeee =X 33 
CHARS4 = EXESGL_TQFL eeeneere =X 1 
CHARSS = 0 EXESINSTIMQ 0000 000 RG 1 
CHARS = 000 EXESMAXACMODE Q00CO019A RG 3 
CHARS = EXESMULTIQUOTA 88 8e3 RG 4 
CHAR65 = EXESPROBER RG 4 
core = EXESPROBER_DSC 8 1A9 RG 3 
CHAR6 = EXESPROBEW OA2 RG 4 
CHAR68 = EXESPROBEW_DSC hap RG 3 
CHAR69 = EXESRMVTIMG § RG 1 
CHAR70 = EXESSNGLEQUOTA § RG 4 
CHAR71 = EXESVAL_IDNAME F2 RG 3 
CHAR7, = 1OC$GW_RAXBUF geaeeere 4 
CHAR7 = PLB LASTOEL = 
CHAR74 = IPL$_SYNCH = 
CHAR75 = JIBSC_BYTCNT = 
CHAR7 = JIBSL_BYTLA = 
CHAR7 = JIBSW_TOCNT = 4 
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Symbol table Seep 198¢ OS:41s8s Feveverclexsupnouromar:1 29° (93, v0 
KGBSS at! = 
nage -f-NuM “10_ NAME ° 
= 
maakt i nine ° 1 
= 
MASK- V- NUMBER = 0 
cCess ER 03 
ORBSB_FLAGS = 
ORBSL-ACLFL = 
ORBSL-ACL_MUT = 
ORB$V—ACL— QUEUE © 1 
CBSL_ARB = 
PCBSL_JIB = 
PCBSL_PID = 900 
PCBSL_STS = 4 
PCBSV-SSRWAIT = A 
PCBSW_AST = 000 
PRS_IPL = B28 1 
PSLSS_PRVMOD = 0000000 
PSLS$V_PRVMOD = 0000001 
RSNS_ASTWAIT = 00000001 
SCAN_ TABLE 0000000 R 03 
SCHSGL_PCBVEC teereeee§ = X (1 
SCHSLOCKW ekerenee x 3? 
SCHSRWAIT eeeeeeee 8 6X 4 
SCHSUNLOCK eeeeeeee x 03 
SS$_ACCVIO = 8000000¢ 
SS$_EXQUOTA = 0000001C 
SS$_IVIDENT = 900 4 
SS$_ NORMAL = 00001 
TOESB_R = B88 028 
TQES$B_RQTYPE = 9 
TQESC_SSSNGL = 3 BA 
TQESC~ TMSNGL = 000 
TQESC~WKSNGL = 0 
TOESL “AS PRM = 1 
TQOESL_PI = C 
TOESL— RQPID s C 
TQE$L~ TOBL = 4 
TQESL_TOFL = 3 8 
TQESQ_ TIME = 1 
UCB$L~ORB = 4 001C 
VASA _BYTE = QOO001FF 
eeceesceecoeesescen + 
! ;_Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
- «ABS. 4 ( 9} 0 ( 9.3 NOPIC USR ABS LCL NO th NOEXE NORD NOWRT NOVEC BYTE 
BLANK . 9 ( 153.) 1 ¢ -) NOPIC USR CON REL LCL NOSHR EXE ROD WRT NOVEC BYT 
$ABSS 9 ( 9.) é ( ¢:) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYT 
YSEXEPAGED ( 33 ) ( -) NOPIC USR CON REL LCL NOSHR-~ EXE RD WRT NOVEC BYTE 
AE XENONPAGED E ( 27.) 4( 4.) NOPIC USR CON REL LCL NOSHR EXE RD WRT NOVEC BYTE 


EXS 
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SEP=1 SYS. SRCIE 


tease meme aaresmocnn arm ae > 


! Performance indicators ! 


bon mmo eee wwe we cee emo eet et 


Phase Page faults CPU Time Elapsed Time 
Initialization :00.07 :00:01. 
yonnene processing } :00: 89 if . . 
toy table sort :00: i f : 3 
17 :00:046.24 :00:13. 
Symbol table output 1 .. ‘ 
Psect synopsis output § :00: 8 0 . 
Cross-reference output :00: 2. 0:00: e- 3 
Assembler run totals 876 00:00:28.6 0:01:58.6 


The yorking set ms. was 1800 pages. 
12115 1 bytes (237 pages) of virtual memory were used to buffer the intermediate code. 
There were 90 pages of symbol table space allocated to hold 1706 non-local and 36 Local symbols. 
878 source Lines were read in Pass 1, producing 18 object records in Pass 2. 
41 pages of virtual memory were used to define 39 macros. 


peer er ee ecm een eee eee eee em ee + 


! Macro Library statistics H 


ee 


Macro Library name Macros defined 
“$52 2SDUAgE: pays. -OBJJLIB.MLB; 1 17 
$255$DUA SYSLIBISTARLET. MLB;2 14 

TOTALS (all libraries) 31 


1783 GETS were required to define 31 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:EXSUBROUT/OBJ=OBJ$:EXSUBROUT MSRC$:EXSUBROUT/UPDATE=(ENH$:EXSUBROUT) +EXECML$/LIB 


cro V04-00 
EXSUBROUT MAR: 1 


Poor 48, 


99 AH-BT13A-SE DIGITAL EQUIPMENT CORPORATION 
Voit VAX/VMS V4.0 CONFID 


ENTIAL AND PROPRIETARY 


